home *** CD-ROM | disk | FTP | other *** search
/ PCMania 75 / PCMania CD75_1.iso / pcmania / metafo75 / LIB / PCROBOTS.BI < prev    next >
Text File  |  1993-01-06  |  3KB  |  68 lines
  1. '*******************************************************************'
  2. '*****    PCROBOTS.BI - Header file for PCROBOTS.OBJ routines ******'
  3. '*******************************************************************'
  4. '*****         PCROBOTS was written by P.D.Smith - 1992       ******'
  5. '*****     Email addresses : psmithb@cix.compulink.co.uk      ******'
  6. '*****                       paul@wolf.demon.co.uk            ******'
  7. '*****                       100023.25@compuserve.com         ******'
  8. '*******************************************************************'
  9. '*****     PCROBOTS.BI was converted by P.B.Clements          ******'
  10. '*****     Email address   : pclements@cix.compulink.co.uk    ******'
  11. '*******************************************************************'
  12.  
  13. defint a-z
  14.  
  15. ' values returned by 'GetLocalMap'
  16. const ARENAFREE   = 0
  17. const ARENAWALL   = 1
  18. const ARENADAMAGE = 3
  19. const ARENAREFUEL = 30
  20.  
  21. ' values returned by 'GetShellStatus'
  22. const SHELLMISSED     = 0
  23. const SHELLHITWALL    = 1
  24. const SHELLCLOSEBLAST = 2
  25. const SHELLNEARMISS   = 3
  26. const SHELLDIRECTHIT  = 4
  27. const SHELLNOTKNOWN   = 5
  28. const SHELLINFLIGHT   = 6
  29.  
  30. declare sub SwapTask ()
  31. declare sub Movement (byval Fast, byval Angle)
  32. declare function Scan (byval Angle, byval Res, Range)
  33. declare function Shoot (byval Angle, byval Range)
  34.  
  35. declare sub GetXY (X, Y)
  36. declare function Transmit (byval Target, byval Message)
  37. declare function Receive (Source, Message)
  38. declare function Damage ()
  39. declare function Speed ()
  40. declare function Battery ()
  41. declare function Ticks& ()
  42. declare function lSin& (byval Angle)
  43. declare function lCos& (byval Angle)
  44. declare function lTan& (byval Angle)
  45. declare function lAtan (byval Ratio&)
  46. declare function lSqrt& (byval Value&)
  47. declare sub SetPattern (Pattern$)
  48. declare sub DebugFlag (byval Flag, byval Setting)
  49. declare sub BuyArmour (byval Units)
  50. declare sub BuyShells (byval Shells)
  51. declare function ShellsLeft ()
  52. declare sub GetLocalMap (Buffer$)
  53. declare sub Invisibility (byval InvisFlag)
  54. declare function GetShellStatus ()
  55. declare function IsInvisible ()
  56. declare function lAtan2 (byval Y, byval X)
  57. declare function GetRobotId ()
  58. declare sub RegisterIFF (IFFname$)
  59. declare function CheckIFF (byval Id)
  60. declare sub RegisterName (rName$)
  61. declare function FindName (byval StartId, Name$)
  62. declare function GetTeamId ()
  63. declare function Configure (byval Fast, byval Manouevre, byval Range, byval Armour, byval Acceleration, byval Invisible)
  64.  
  65.  
  66. declare sub seedrand (seed as long)
  67. declare function rand (limit as integer)
  68.